//类成员 写法示例
类  CHpSocket
	CTcpClientListenerImpl  listener
	CTcpClientPtr  tcpClient
	
	def  无类型 Run()
		tcpClient.Attach( HP_Create_TcpClient(&listener) )

def 整型 入口函数_窗口()   //窗口程序入口
	CTcpClientListenerImpl  listener
//	测试_httpServer()
	测试_httpClient()
//	测试_tcpServer()
//	测试_tcpClient()
	返回 0
